home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
rbbs_pc
/
ansi173c.zip
/
R-PCANSI.MRG
< prev
next >
Wrap
Text File
|
1992-05-10
|
3KB
|
68 lines
* ------------[ BLED merge (c) Ken Goosens ]-------------
* Merge this against RBBS-PC.BAS to produce RBBS-PC.NEW
* RBBS-PC.BAS: Date 9-1-1991 Size 151907 bytes
* ------------[ Created 05-09-1992 23:49:37 ]------------
* REPLACING old line(s) by new
175 GOSUB 5344
CALL CountLines (MaxEntries)
REDIM ZCategoryName$(MaxEntries),ZCategoryCode$(MaxEntries),_
ZCategoryDesc$(MaxEntries)
CALL InitFMS (ZNumCategories)
ZMaxMsgLines = ZMaxMsgLinesDef
IF (NOT ZLocalUser) AND (NOT ZSubBoard) THEN _
CALL OpenCom (ZModemInitBaud$,",N,8,1")
IF NOT ZSubBoard THEN _
CALL SetEcho (ZDefaultEchoer$)
ZNodeWorkFile$ = ZNodeWorkDrvPath$ + _
"NODE" + _
ZNodeFileID$ + _
"WRK"
ZSecsPerSession! = ZMinsPerSession * 60!
LogIndex = 1 ' TC090119
IF NOT ZLocalUserMode THEN _
IF NOT ZExitToDoors THEN _
GOTO 180 _
ELSE IF NOT ZLocalUser THEN _
GOTO 180
ZLocalUser = ZTrue
ZBPS = -6
ZBaudTest! = 9600
ZEightBit = ZTrue
ZSnoop = ZTrue
' LogIndex = 1 ' TC090119
IF ZExitToDoors THEN _
CALL AMorPM : _
CALL ReadProf : _
GOTO 410
GOSUB 178
GOTO 345
* REPLACING old line(s) by new
345 LOCATE 24,1
CALL AMorPM
ZUserLogonTime! = TIMER
ZTimeLoggedOn$ = TIME$
ZLinesPrinted = 0
ZExpertUserDef = ZExpertUser
ZExpertUser = ZFalse
CALL SetExpert
ZOutTxt$ = ""
IF NodesInSystem > 1 THEN _
ZOutTxt$ = " - Node " + ZNodeID$ ' DA071701
IF ZReliableMode THEN _
ZOutTxt$ = ZOutTxt$ + " (Rel)" ' TC090101
IF ZRBBSName$ <> "" THEN _ ' TC090101
CALL QuickTPut1 ("Welcome to " + ZRBBSName$ + ZOutTxt$) ' DA071701
ZTestParity = ZTrue
ZStopInterrupts = ZTrue
ZFileName$ = ZPreLog$
CALL FlushCom (WasX$)
* ------[ first line different ]------
IF NOT ZLocalUser THEN _ ' ANSI173C
CALL AnsiTest ' ANSI173C
IF ZANSITest = ZTrue THEN _ ' ANSI173C
CALL BreakFileName (ZFileName$,DR$,WasX$,Extension$,ZTrue) : _' ANSI173C
IF LEN(WasX$) < 8 THEN _ ' ANSI173C
ZWasDF$ = DR$ + WasX$ + "C" + Extension$ : _ ' ANSI173C
ZFileName$ = ZWasDF$ ' ANSI173C
ZCommPortStack$ = ""